-- card: 4362 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 4177
-- name: Experiment 5
----- HyperTalk script -----
on translate angle
  global xprime,yprime,x,y
  put -(angle) into angle

  put round((y*sin(angle)+x*cos(angle))) into xprime
  put round((y*cos(angle)-x*sin(angle))) into yprime
end translate

on movePuck
  global x,y,puckIncX,puckIncY

  put x+puckIncX into x
  put y+PuckIncY into y
end movePuck

on runExperiment
  global x,y,xprime,yprime
  global rotIncrement5
  global puckIncX,puckIncY
  global timeIncrement5,trace5
  global centerX,centerY
  global cardClear5

  put 207 into centerX
  put 176 into centerY
  get the loc of button "puck"
  put (item 1 of it)-centerX into x
  put (item 2 of it)-centerY into y
  put the loc of button "puck" into oldPoint
  put 0 into tableRot
  put false into cardClear5
  hide menubar
  choose line tool
  set the lineSize to 2
  put "Click the mouse to stop." into field "Blurb"

  repeat until the mouse is down
    movePuck
    translate tableRot
    if (xprime*xprime)+(yprime*yprime) > (19600) then exit repeat
    put (xprime+centerX) & "," & (yprime+centerY) into newPoint
    set loc of button "puck" to newPoint
    if trace5 is true then
      drag from oldPoint to newPoint
      put newPoint into oldPoint
    end if
    put (tableRot+rotIncrement5) into tableRot
  end repeat
  put "Click on this field to restore the table" into field "Blurb"
  show menubar
  choose browse tool
end runExperiment

--------- Notes, etc for creation
on test
  global x,y,xprime,yprime,angle
  ask "Coordinates?"
  put item 1 of it into x
  put item 2 of it into y
  ask "Angle in degrees?"
  put (it * (pi/180)) into angle
  translate
  put xprime into item 1 of msg
  put yprime into item 2 of msg
end test

-- the table's center is at 207,176
-- the table's radius is 140 pixels




-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=195 top=303 right=329 bottom=219
-- title width / last selected line: 0
-- icon id / first selected line: 16596 / 16596
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Puck
----- HyperTalk script -----
on mouseUp
  runExperiment
end mouseUp



-- part 10 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=11 top=40 right=326 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Help


-- part contents for background part 16
----- text -----
Press this field to begin tracing the path of the puck.

-- part contents for card part 10
----- text -----
   This experiment deals with a table rotating at a constant angular velocity around its center.  An observer, rotating with the table, pushes a dry ice puck (nearly frictionless) onto the table.  In the earth frame, the puck travels in a straight line, but in the table frame, it appears to move in a curve.
   This card simulates that experiment based on the parameters you can set by clicking on the "Set Parameters" button in the control panel.  When setting parameters, remember to take into account the velocity the puck has as a result of being held at the edge of the rotating tabel before being pushed.
   For a complete description of the experiment, click on the "Experiment Video" button in the control panel, then click on the first button in the list of selections which will appear.